home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5810.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  51 lines
  1. 5 GOTO10010
  2. 10 DATAsinýé+cosýé,1,10,20
  3. 20 DATA1+tanýé,secýé,10,30
  4. 30 DATA1+cotýé,cosecýé,20,40
  5. 40 DATAsin(àñá),sinà¥cosáñcosà¥siná,30,50
  6. 50 DATAcos(àñá),cosà¥cosáÅsinà¥siná,40,60
  7. 60 DATAtan(àñá),(tanàñtaná)/(1Åtanà¥taná),50,70
  8. 70 DATAcot(àñá),(cotà¥cotáÅ1)/(cotáñcotà),60,80
  9. 80 DATAsin2é,2siné¥cosé,70,90
  10. 90 DATAcos2é,cosýé-sinýé,80,100
  11. 100 DATAcos2é,1-2sinýé,90,110
  12. 110 DATAcos2é,2cosýé-1,100,120
  13. 120 DATAtan2é,2tané/(1-tanýé),110,130
  14. 130 DATAsin(é/2),ñû((1-cosé)/2),120,140
  15. 140 DATAcos(é/2),ñû((1+cosé)/2),130,150
  16. 150 DATAtan(é/2),ñû((1-cosé)/(1+cosé)),140,160
  17. 160 DATAtan(é/2),(1-cosé)/siné,150,170
  18. 170 DATAtan(é/2),siné/(1+cosé),160,180
  19. 180 DATAtan(é/2),cosecé-coté,170,190
  20. 190 DATAcot(é/2),ñû((1+cosé)/(1-cosé)),180,200
  21. 200 DATAcot(é/2),siné/(1-cosé),190,210
  22. 210 DATAcot(é/2),(1+cosé)/siné,200,220
  23. 220 DATAcot(é/2),cosecé+coté,210,230
  24. 230 DATAsin3é,3siné-4sinþé,220,240
  25. 240 DATAcos3é,4cosþé-3cosé,230,250
  26. 250 DATAtan3é,(3tané-tanþé)/(1-3tanýé),240,260
  27. 260 DATA2sinà¥cosá,sin(à+á)+sin(à-á),250,270
  28. 270 DATA2cosà¥siná,sin(à+á)-sin(à-á),260,280
  29. 280 DATA2cosà¥cosá,cos(à+á)+cos(à-á),270,290
  30. 290 DATA2sinà¥siná,-(cos(à+á)-cos(à-á)),280,300
  31. 300 DATAsinà+siná,2sin((à+á)/2)¥cos((à-á)/2),290,310
  32. 310 DATAsinà-siná,2cos((à+á)/2)¥sin((à-á)/2),300,320
  33. 320 DATAcosà+cosá,2cos((à+á)/2)¥cos((à-á)/2),310,330
  34. 330 DATAcosà-cosá,-2sin((à+á)/2)¥sin((à-á)/2),320,340
  35. 340 DATAtan(45úñ(é/2)),secéñtané,330,350
  36. 350 DATAtan(45úñ(é/2)),(1ñsiné)/cosé,340,360
  37. 360 DATAtan(45úñ(é/2)),cot(45úÅ(é/2)),350,370
  38. 370 DATAtan(45ú+é),(1+tané)/(1-tané),360,380
  39. 380 DATAcot(45ú-é),(1+coté)/(1-coté),370,380
  40. 10010 MODE8:DIM:x=10:y=380:r=x
  41. 10110 RESTORE(r)
  42. 10120 READm$,n$,b,c
  43. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  44. 10140 CLS:PRINTm$;TAB(l);l$;"=";n$;
  45. 10150 z=ASC(INPUT$(1,@))
  46. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  47. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  48. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  49. 10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
  50. 10280 GOTO10150
  51.